home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / util / gnu / emacs_src_18_58.lha / emacs-18.58 / lisp / term / intuition-win.el! < prev    next >
Lisp/Scheme  |  1992-05-23  |  456b  |  12 lines
  1. (load "s:.emacs-menu" t t)
  2. (setq command-switch-alist (append '(("-fn" . amiga-handle-set-font))
  3.                    command-switch-alist))
  4.  
  5. (defun amiga-handle-set-font (switch)
  6.   (condition-case err
  7.       (let ((wfont (car command-line-args-left))
  8.         (height (car (read-from-string (car (cdr command-line-args-left))))))
  9.     (setq command-line-args-left (cdr (cdr command-line-args-left)))
  10.     (amiga-set-font wfont height))
  11.     (error (message "Failed to load font"))))
  12.